home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesC-D.lzh / CannonFodder.lha / Install < prev    next >
Text File  |  1980-05-04  |  2KB  |  136 lines
  1. ;****************************
  2.  
  3. (set #readme-file "CannonFodder.readme")
  4. (set #sub-dir "cf_data")
  5. (set #AD_disk "RAM")
  6. (run ("cpu nocache noburst nocopyback"))
  7. (procedure P_ChkRun
  8.   (if
  9.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  10.     ("")
  11.     (abort 
  12.       (cat
  13.     "You must install \"" #program "\" first!\n"
  14.     "It must be accessible via the path.\n"
  15.     "You can find it in the WHDLoad package."
  16.       )
  17.     )
  18.   )
  19. )
  20.  
  21. (if
  22.   (exists #readme-file)
  23.   (if
  24.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  25.     ("")
  26.     (run ("SYS:Utilities/More %s" #readme-file))
  27.   )
  28. )
  29.  
  30. (set #program "WHDLoad")
  31.  
  32. (P_ChkRun)
  33.  
  34. (set @default-dest
  35.   (askdir
  36.     (prompt 
  37.       (cat
  38.     "Where should \"" @app-name "\" be installed ?\n"
  39.     "A drawer \"" @app-name "\" will automatically be created."
  40.       )
  41.     )
  42.     (help @askdir-help)
  43.     (default @default-dest)
  44.     (disk)
  45.   )
  46. )
  47. (set #dest (tackon @default-dest @app-name))
  48. (if
  49.   (exists #dest)
  50.   (
  51.     (set #choice
  52.       (askbool
  53.         (prompt
  54.           (cat
  55.             "\nDirectory \"" #dest "\" already exists.\n"
  56.             "Should it be deleted?"
  57.           )
  58.         )
  59.         (default 1)
  60.         (choices "Delete" "Skip")
  61.         (help @askbool-help)
  62.       )
  63.     )
  64.     (if
  65.       (= #choice 1)
  66.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  67.     )
  68.   )
  69. )
  70. (makedir #dest
  71.   (help @makedir-help)
  72.   (infos)
  73. )
  74.  
  75. ;----------------------------
  76.  
  77. (copyfiles
  78.   (help @copyfiles-help)
  79.   (source ("cf.slave"))
  80.   (dest #dest)
  81. )
  82. (copyfiles
  83.   (help @copyfiles-help)
  84.   (source ("CannonFodder.info"))
  85.   (dest #dest)
  86. )
  87. (copyfiles
  88.   (help @copyfiles-help)
  89.   (source ("CF.exe"))
  90.   (dest #dest)
  91. )
  92. (if
  93.   (exists #readme-file)
  94.   (copyfiles
  95.     (help @copyfiles-help)
  96.     (source #readme-file)
  97.     (dest #dest)
  98.   )
  99. )
  100. (if
  101.   (exists ("%s.info" #readme-file))
  102.   (copyfiles
  103.     (help @copyfiles-help)
  104.     (source ("%s.info" #readme-file))
  105.     (dest #dest)
  106.   )
  107. )
  108.  
  109.  
  110.  
  111. (run
  112.   (cat
  113.    "cd \"" #dest "\"\n")
  114. )
  115.    
  116. (run ("CF.exe"))
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123. (copyfiles
  124.   (help @copyfiles-help)
  125.   (source ("%s:" #AD_disk))
  126.   (dest #dest)
  127.   (pattern "~(s)")
  128. )
  129.  
  130.  
  131. (run ("Delete %s ALL QUIET FORCE"  "RAM:cf_data"))
  132. ;----------------------------
  133. (run ("cpu cache burst copyback"))
  134. (exit)
  135.  
  136.